DEFINITION MODULE MyUties;
FROM SYSTEM IMPORT FFP;
(*
  Created:   13.02.1988 by
             Stefan Salewski
             Stolper Weg 3
             2160 Stade   West-Germany
             Tel: 04141/61130
             
  Note: compiled with AMIGA Modula-2 System by AMSoft from 5.5.88
   
  This Module may be freely copied. But please
  leave my name in. Thanks....Stefan  
*)
  
  TYPE 
    DeziZiffer = ['0'..'9'];
    DeziNummer = [0..9];

  PROCEDURE Buchstabe(c:CHAR):BOOLEAN;
  
  PROCEDURE IsADigit(c:CHAR):BOOLEAN;

  PROCEDURE AddOp(c:CHAR):BOOLEAN;

  PROCEDURE MulOp(c:CHAR):BOOLEAN;

  PROCEDURE Operator(c:CHAR):BOOLEAN;

  PROCEDURE Max(i,j:INTEGER):INTEGER;

  PROCEDURE Min(i,j:INTEGER):INTEGER;

  PROCEDURE exp10(i:INTEGER):LONGREAL;
  
  PROCEDURE exp10FFP(i:INTEGER):FFP;
  
  PROCEDURE Ziffer(i:DeziNummer):DeziZiffer;

  PROCEDURE Nummer(z:DeziZiffer):DeziNummer;
  
END MyUties.def
